home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / sound / players / cpumod2e.lzh / CPU_MOD.STE / USEITBAS.TXT < prev   
Text File  |  1994-11-20  |  2KB  |  59 lines
  1.  ' **********************************
  2.  ' *        CPU_MOD PLAYER        *
  3.  ' *        by Ruiz lionel        *
  4.  ' **********************************
  5.  '  V0.01 Phenix soft (c)Nov94/Nov94
  6.  
  7.  CLS : PRINT "f"
  8.  DEFINT "A-Z"
  9.  CLEAR (700000)
  10.  Cpu_Mod%L= MEMORY(80000)'   You have to reserve size of CPU_MOD.BIN + 70Ko    
  11.  Module%L= MEMORY(512000)'   Size max of the desired module to reserve + 1Ko
  12.  '                 You must be in supervisor mode (for GfA)
  13.  Rep%=0
  14.  BLOAD "CPU_MOD.BIN",Cpu_Mod%L
  15.  Chem$="F:\*.*"
  16.  Nom$=""
  17.  MOUSEON
  18.  Chem$="F:\ENTREES.MOD\*.*"
  19.  Nom$="SH_GREY4.MOD"
  20.  Length%L=70248'         Length of the desired Module
  21.  BLOAD LEFT$(Chem$, LEN(Chem$)-3)+Nom$,Module%L
  22.  CALL Cpu_Mod%L(1,0,0,3,L Module%L,L Length%L)'   Power ON
  23.  CALL Cpu_Mod%L(2,0,0,0,L Module%L,L Length%L)'   Load and work with the Mod
  24.  CALL Cpu_Mod%L(3,0,0,3,L Module%L,L Length%L)'   Play the Mod
  25.  REPEAT UNTIL INKEY$ <>""
  26.  CALL Cpu_Mod%L(1,0,0,0,L Module%L,L Length%L)'   Stop and clear
  27.  END
  28.  
  29. This is just an example of use of CPU_MOD.BIN. It can be easily translated in
  30. GfA or any other Language. Ask to me at kirstin@odin.u-3mrs.fr if you can't
  31. figure it. (Or by Snail Mail; see .DOC for more details).
  32. There are also other calls possible; which are:
  33.  
  34.  
  35. Error.B = CPU_MOD( Cmd.W ,0.W , Mo_St.W , Freq.W , MOD_Ad.L , MOD_Ln.L )
  36. D0           SP+4     SP+8      SP+10    SP+12      SP+16
  37.            Command    Stereo      KHz       AdresseMod Longueur du Mod
  38. Error= 0:No error
  39.       -1:Error (Power OFF ? , Incorrect module ? , No module ?)
  40.  
  41. Cmd=    0:-
  42.     1:Power OFF/ON                           [Esc]
  43.     2:Open new module at address=MOD_Ad and length=MOD_Ln
  44.     3:Pause/Play                           [SP]
  45.     4:Stop                               [-]
  46.     5:Song position Reverse Search                   [(]
  47.     6:Song position Forward Search                   [)]
  48.     7:Fast Forward OFF/ON                       [+]
  49.     8:Repeat mode OFF/ON                       [.]
  50.  
  51. Mo_St= 0:-
  52.        1:Mono/Stereo                           [*]
  53.  
  54. Freq=  0:-
  55.        1: 6258 Hz (Default)                       [0]
  56.        2:12517 Hz                           [1]
  57.        3:25033 Hz                           [2]
  58.        4:50066 Hz                           [3]
  59.